home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / H282.ZIP / MSWLOGO.ZIP / EXAMPLES.ZIP / ECHO < prev    next >
Encoding:
Text File  |  1992-11-12  |  257 b   |  14 lines
  1. to echo :arg
  2. print mci sentence [open new type waveaudio alias wa buffer] :arg
  3. mci [record wa]
  4. print "Recording...
  5. wait :arg*60
  6. print "Stopped...
  7. mci [seek wa to start]
  8. print "Playing...
  9. mci [play wa wait]
  10. print "Stopped...
  11. mci [close wa]
  12. end
  13.  
  14.